home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS Toolkit
/
BBS Toolkit.iso
/
doors_1
/
gapqbdr.zip
/
GAPQBERR.BI
< prev
next >
Wrap
Text File
|
1991-01-12
|
2KB
|
62 lines
'
' Copyright (C) 1988,1989 The GAP Development Company
'
' ALL RIGHTS RESERVED
'
' RESTRICTIONS APPLY
'
' This source code is considered to be confidential information proprietary
' to The GAP Development Company. It is prohibited and punishable by law
' to use or duplicate any part of this information. This source code may
' be used and modified by the licensee on a single computer. It may not
' be used by multiple users at the same time on a networked system. No
' portion of this source code may be disclosed to other persons under any
' circumstance, even if another person is a licensed GAPQBDR user.
'
' This source code is licensed to the end user and at all times remains
' the property of GAP Development Company. This source code may not,
' under any circumstance, be placed in a library for general use.
'
'
'
' GAPQBERR.BI
'
' Global Error Trapper For ALL modules
'
' To be included with main module
'
' Main Module must be compiled with /e
'
' Note, this file MUST be included with each main module (your
' program is the main module), and it MUST appear AFTER any
' variable declarations and BEFORE any executible statements.
'
'***********************************************************************
'* All errors are FATAL. *
'* Note that the error trap must not call any GAPQBDR functions that *
'* send output to the remote user. Otherwise, severe recurrsion will *
'* occur and it is likely a stack overflow will result. *
'***********************************************************************
ON ERROR GOTO error.trap ' set up error handler
goto gapstart ' jump to main program
error.trap:
CLS 2
CALL gapputs(CRLF + CRLF + "Error in Module GAPQBDR. Error # = " + STR$(ERR) + CRLF + CRLF)
CALL waitasec(5)
IF l.ocal = 0 THEN
CALL reset.port ' shut down the port
END IF
END
gapstart:
' Your program begins here